#!perl -T

use Test::More tests => 4;

use Data::PrintUtils qw(:ALL);

like (formatOneLineHash( {One => "1", Two => "2", Three => "3"}), qr/{((One|Two|Three) => (1|2|3),?\s*){3}}/, "formatOneLineHash - one line hash");
like (formatOneLineHash( {One => "1", Two => "2", Three => "3"}, {PRIMARY_KEY_ORDER => [qw/One Two Three/]}), qr/{One => 1, Two => 2, Three => 3}/, "formatOneLineHash - one line hash Ordered Keys");
like (formatOneLineHash( {One => "1", Three => "3"}, {PRIMARY_KEY_ORDER => [qw/One Two Three/]}), qr/{One => 1, Two => notExist, Three => 3}/, "formatOneLineHash - one line hash Ordered Keys");
like (formatOneLineHash( {One => "1", Two => undef, Three => "3"}, {PRIMARY_KEY_ORDER => [qw/One Two Three/]}), qr/{One => 1, Two => undef, Three => 3}/, "formatOneLineHash - one line hash Ordered Keys");

